#!/usr/bin/perl
#===============================================================================
# Copyright 2011 zod.yslin
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
# 
# Author: zod.yslin
# Email: 
# File Name: uninstallApk.pl
# Description: 
# 
# Edit History: 
#   2011-06-20    File created.
#===============================================================================

@white_list=(
	"ApiDemos", 
	"CubeLiveWallpapers",
	"GestureBuilder",
	"SoftKeyboard",
	"com.lookout",
	"com.qihoo360.mobilesafe",
	"com.nqmobile.antivirus20",
	"com.kms",
	"com.inca.nprotect"
);


sub isWhiteApk{
	my($apk)=@_;
	for $wapk(@white_list){
		#print "$apk =? $wapk\n";
		if( $apk eq $wapk ){
			return "true";
		}
	}
	return 0;
}

@apkList=`adb shell ls /data/app`;
#print $apkList;
for $apk (@apkList){
	print "Verify if $apk belong to white list";
	$apk =~ /(-.*\.apk)|(\.apk)/;
	$m=$`;
	#print "match:$`\n";

	(not isWhiteApk $m) && 
	(($msg=`adb uninstall -k $m`) ? 
		($? && (($pmmsg=`adb shell pm uninstall -k $m`)?
				print "Sucess[$?]: adb shell pm uninstall -k $m\n":print "Fail[$?]: adb shell pm uninstall -k $m\n")): 
		(print "Sucess[$?]: adb uninstall $m\n"));

	#print $r,"\n";
}
